home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / c.lqr / RENAME.C < prev    next >
Text File  |  1985-06-03  |  512b  |  20 lines
  1.  
  2. /************************************************************
  3.  *          IBM PC "C" Bulletin Board                       *
  4.  *          Tulsa, OK  918-664-8737                         *
  5.  ************************************************************/
  6.  
  7.  
  8. rename(old, new)
  9. char *old, *new;
  10. {
  11.         char buff[60];
  12.  
  13.         fcbinit(new,buff);
  14.         bdos(19,buff);
  15.         fcbinit(old,buff);
  16.         fcbinit(new,buff+16);
  17.         bdos(23,buff);
  18. }
  19.  
  20.